home *** CD-ROM | disk | FTP | other *** search
/ PC Advisor 2007 June / PC Advisor 2007 June.iso / GTours / Sunrise at Mercury.gt5 < prev    next >
Encoding:
Text File  |  2003-08-14  |  641 b   |  30 lines
  1. Set wnd = OpenWorkspace("dd_merc.ws5")
  2. wnd.MDIWindow.State = SW_MAXIMIZE
  3.  
  4. Set Camera = wnd.camera
  5. Set theTime = camera.time
  6. Set Direction = camera.Direction
  7. Set Location = camera.Location
  8. set pl =PlayerWindow
  9. 'pl.top=450
  10. 'pl.left=600
  11. pl.top=Screen.height-150
  12. pl.left=Screen.width-200
  13.  
  14. set txt1 = CreateTextWindow
  15. txt1.Loadfile "dd_merc_w1.html"
  16. 'txt1.Locate 300,30,450,145
  17. txt1.Locate Screen.width-480,0,450,145
  18.  theTime.step = 0.25000000000000E+000
  19.  
  20.  txt1.Show
  21. settimemark
  22.  pause 5000
  23.  theTime.Forward
  24. ' WaitFrames 66 : theTime.Stop
  25.  WaitFrames 140 : theTime.Stop
  26. waitfortime 20000
  27.  txt1.Close
  28. ' end recording
  29.  
  30.